home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / IEditor / ARexx / AlignBoxRight.ie < prev    next >
Encoding:
Text File  |  1997-06-17  |  445 b   |  35 lines
  1. /*
  2.     $VER: AlignBoxRigth.ie 1.0 (5.12.95) © Simone Tellini
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. SIGNAL ON ERROR
  8.  
  9. ADDRESS 'IEDITOR.1'
  10.  
  11. /*---------------- INSERT HERE YOUR CODE ------------------*/
  12.  
  13.  
  14. 'GETBOX'
  15. which = result
  16.  
  17. 'GETBOX'
  18. 'GETBOXATTR' result to
  19.  
  20. 'GETBOXATTR' which from
  21.  
  22. 'SETBOXATTR' which 'L' ((to.leftedge+to.width)-from.width)
  23.  
  24.  
  25. /*---------------------------------------------------------*/
  26.  
  27. EXIT
  28.  
  29.  
  30. ERROR:
  31.  
  32. say 'Error' RC 'on line' SIGL
  33.  
  34. EXIT RC
  35.